10 AN=828:REM ANFANGSADRESSE
20 FORI=0TO188:READB:POKEAN+I,B:NEXTI
30 POKEAN+157,PEEK(788):POKEAN+158,PEEK(789):REM NORMALER IRQ
40 HI=INT((AN+165)/256):LO=(AN+165)-256*HI
50 POKEAN+147,LO:POKEAN+148,HI:REM ANFANG ASCII TABELLE
60 POKE56334,PEEK(56334)AND254:REM IRQ AUS
70 HI=INT(AN/256):LO=AN-256*HI
80 POKE788,LO:POKE789,HI:REM NEUER IRQ
90 POKE56334,PEEK(56334)OR1:REM IRQ WIEDER AN
100 END
110 DATA120,165,198,201,10,240,27,169,255,141,0,220,173,47,208
120 DATA41,248,141,47,208,172,1,220,9,7,141,47,208,192,255
130 DATA240,127,208,2,240,120,160,0,173,47,208,41,254,141,47
140 DATA208,174,1,220,9,7,141,47,208,138,201,255,208,46,160
150 DATA8,173,47,208,41,253,141,47,208,174,1,220,9,7,141
160 DATA47,208,138,201,255,208,23,160,16,173,47,208,41,251,141
170 DATA47,208,174,1,220,9,7,141,47,208,138,201,255,240,54
180 DATA201,254,240,31,200,201,253,240,26,200,201,251,240,21,200
190 DATA201,247,240,16,200,201,239,240,11,200,201,223,240,6,200
200 DATA201,191,240,1,200,196,2,240,12,132,2,185,225,3,164
210 DATA198,153,119,2,230,198,76,49,234,169,255,133,2,208,247
220 DATA 022:REM HELP
230 DATA 056:REM 8
240 DATA 053:REM 5
250 DATA 023:REM TAB
260 DATA 050:REM 2
270 DATA 052:REM 4
280 DATA 055:REM 7
290 DATA 049:REM 1
300 DATA 027:REM ESC
310 DATA 043:REM +
320 DATA 045:REM -
330 DATA 017:REM LINE FEED
340 DATA 013:REM ENTER
350 DATA 054:REM 6
360 DATA 057:REM 9
370 DATA 051:REM 3
380 DATA 024:REM ALT
390 DATA 048:REM 0
400 DATA 046:REM .
410 DATA 145:REM CRSR UP
420 DATA 017:REM CRSR DOWN
430 DATA 157:REM CRSR LEFT
440 DATA 029:REM CRSR RIGHT
450 DATA 025:REM NO SCROLL